home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / c / GAPLib.lha / GAPLib / gaplib / DeletePopulation.c < prev    next >
Encoding:
C/C++ Source or Header  |  1999-07-04  |  473 b   |  10 lines
  1.  
  2. #include <stdlib.h>
  3. #include <GAP.h>
  4. #include "GAPLocal.h"
  5. #define i4A(n) (((long **)t1La->Polys)[n])
  6. void DeletePopulation(struct Population *);void DeletePopulation(struct Population *t1La)
  7. {int i;void (*s4O)(void *);s4O = (void (*)(void *)) l5T(t1La,t7X(KILL));if(s4O!=NULL) {
  8. for(i=0;i!=t1La->NumPolys;i++) {(*s4O)(i4A(i));free(i4A(i));}} else {for(i=0;
  9. i!=t1La->NumPolys;i++) {free(i4A(i));}}free((void *)l5T(t1La,t7X(PBOX)));y8E(t1La);
  10. free(t1La->Polys);free(t1La);}